﻿Public Class ChamadoDao
    Implements IChamado




    Public Function CadastrarChamado(ByVal parChamado As SuporteModel.Chamado) As Boolean Implements IChamado.CadastrarChamado
        Dim fChamado As New clsChamado
        Dim fCodChamado As Integer
        fChamado.PegarCampo("SELECT MAX(CHA_CODIGO) FROM CHAMADOS", fCodChamado, True, True)

        fChamado.Codigo = fCodChamado
        fChamado.Solucao = parChamado.Solucao
        fChamado.Data = parChamado.DataCadastro

        Return fChamado.Processar(clsConexao.enuTConexao.Atualizacao)

    End Function

    Public Function AtualizarChamado(ByVal parIdChamado As Integer, ByVal parNovoComentario As SuporteModel.Comentario) As Boolean Implements IChamado.AtualizarChamado

    End Function

    Public Function BuscarChamadoPorId(ByVal parIdChamado As Integer) As SuporteModel.Chamado Implements IChamado.BuscarChamadoPorId

    End Function

    Public Function CadastrarComentario(ByVal parUsuario As SuporteModel.Usuario, ByVal parIdChamado As Integer, ByVal parComentario As String) As Boolean Implements IChamado.CadastrarComentario

    End Function

    Public Function ExcluirComentario(ByVal parIdComentario As Integer) As Boolean Implements IChamado.ExcluirComentario

    End Function

    Public Function FecharChamado(ByVal parIdChamado As Integer) As Boolean Implements IChamado.FecharChamado

    End Function


    Public Function ListarChamado(ByVal parPagAtual As Integer, ByVal parQuantidadeChamados As Integer, ByVal parDataInicio As Date, ByVal parDataFim As Date, ByVal parStatus As Integer, ByVal parTipo As Integer) As System.Collections.Generic.List(Of SuporteModel.Chamado) Implements IChamado.ListarChamado

    End Function

    Public Function ListarComentarioPorChamado(ByVal parIdChamado As Integer) As System.Collections.Generic.List(Of SuporteModel.Comentario) Implements IChamado.ListarComentarioPorChamado

    End Function

    Public Function UltimoChamado() As SuporteModel.Chamado Implements IChamado.UltimoChamado

    End Function

    Public Function listarChamado1(ByVal parPagAtual As Integer, ByVal parQuantidadeChamados As Integer, ByVal parStatus As Integer, ByVal parTipo As Integer) As System.Collections.Generic.List(Of SuporteModel.Chamado) Implements IChamado.ListarChamado

    End Function

    Public Function TotalChamados() As Integer Implements IChamado.TotalChamados

    End Function

    Public Function NextListaChamados(ByVal parPagAtual As Integer, ByVal parQuantidadeItens As Integer, ByVal parListaClientes As System.Collections.Generic.List(Of SuporteModel.Cliente), ByVal parListaLojas As System.Collections.Generic.List(Of SuporteModel.Loja), ByVal parListaSistemas As System.Collections.Generic.List(Of SuporteModel.Sistema), ByVal parListaTecnicos As System.Collections.Generic.List(Of SuporteModel.Tecnico), ByVal parListaTelas As System.Collections.Generic.List(Of SuporteModel.Tela), ByVal parIdCodigo As Integer, ByVal parStatus As Integer, ByVal parTipo As Integer, ByVal parDataInicio As Date, ByVal parDataFim As Date) As System.Collections.Generic.List(Of SuporteModel.Chamado) Implements IChamado.NextListaChamados

    End Function

    Public Function PreviousListaChamados(ByVal parPagAtual As Integer, ByVal parQuantidadeItens As Integer, ByVal parListaClientes As System.Collections.Generic.List(Of SuporteModel.Cliente), ByVal parListaLojas As System.Collections.Generic.List(Of SuporteModel.Loja), ByVal parListaSistemas As System.Collections.Generic.List(Of SuporteModel.Sistema), ByVal parListaTecnicos As System.Collections.Generic.List(Of SuporteModel.Tecnico), ByVal parListaTelas As System.Collections.Generic.List(Of SuporteModel.Tela), ByVal parIdCodigo As Integer, ByVal parStatus As Integer, ByVal parTipo As Integer, ByVal parDataInicio As Date, ByVal parDataFim As Date) As System.Collections.Generic.List(Of SuporteModel.Chamado) Implements IChamado.PreviousListaChamados

    End Function

    Public Function listarChamado2(ByVal parListaClientes As System.Collections.Generic.List(Of SuporteModel.Cliente), ByVal parListaLojas As System.Collections.Generic.List(Of SuporteModel.Loja), ByVal parListaSistemas As System.Collections.Generic.List(Of SuporteModel.Sistema), ByVal parListaTecnicos As System.Collections.Generic.List(Of SuporteModel.Tecnico), ByVal parListaTelas As System.Collections.Generic.List(Of SuporteModel.Tela), ByVal parIdCodigo As Integer, ByVal parStatus As Integer, ByVal parTipo As Integer, ByVal parDataInicio As Date, ByVal parDataFim As Date) As System.Collections.Generic.List(Of SuporteModel.Chamado) Implements IChamado.ListarChamado

    End Function

    Public Function ListarChamado3(parDataInico As Date, parDataFim As Date) As List(Of SuporteModel.Chamado) Implements IChamado.ListarChamado

    End Function
End Class
